-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=64, y1=69, x2=576, y2=411)
-- screen: Rect(x1=0, y1=0, x2=640, y2=480)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 3
-- first background id: 2647
-- card count: 6
-- first card id: 2983
-- list block id: 2156
-- print block id: 3486
-- font table block id: 6841
-- style table block id: 6531
-- free block count: 4
-- free size: 12256 bytes
-- total size: 49152 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x01258000
-- compacted by hypercard version: 0x02018000
-- modified by hypercard version: 0x02018000
-- opened by hypercard version: 0x02018000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x605DE496
----- HyperTalk script -----
on openStack
  global menu1,menu2
  put newMenu("Water","Find it","Get it","Humans","Biological diversity", "A Difference","(-","Main Menu","(-","Water Help") into menu1
  put newMenu("Video","Laser","Tape") into menu2
end openStack

on closeStack
  global menu1,menu2
  put deleteMenu(menu1) into menu1
  put deleteMenu(menu2) into menu2
end closeStack

on doMenu which
  global menu1,menu2
  if which is "Find it" then
    visual effect dissolve slow to black
    wait 5
    visual effect dissolve slow
    go to stack "where we find water"
  else if which is "Get it" then
    visual effect dissolve slow to black
    wait 5
    visual effect dissolve slow
    go to stack "where we get water"
  else if which is "Humans" then
    visual effect dissolve slow to black
    wait 5
    visual effect dissolve slow
    go to stack "human adaptation"
  else if which is "Biological diversity" then
    visual effect dissolve slow to black
    wait 5
    visual effect dissolve slow
    go to stack "biological diversity"
  else if which is "A Difference" then
    visual effect dissolve slow to black
    wait 5
    visual effect dissolve slow
    go to stack "we make a difference"
  else if which is "Main Menu" then
    visual effect dissolve slow to black
    wait 5
    visual effect dissolve slow
    go to stack "database-1"
  else if which is "Water Help" then
    push card
    visual effect dissolve slow to black
    wait 5
    visual effect dissolve slow
    go to card "help" in stack "database-1"
  else if which is "Laser" then
    answer "Coming soon to a Laser Optical Disk Player!" with "OK"
  else if which is "Tape" then
    answer "You have got to be kidding!" with "OK"
  else
    pass doMenu
  end if
end doMenu

on sicEmFido
  global ContinueOrNot, searchString
  if ContinueOrNot is NoGo then
    put empty into ContinueOrNot
    exit sicEmFido
  end if
  ask "Type in the word or phrase you want to find." with searchString
  if the result is cancel then
    answer "Ending search"
    exit sicEmFido
  end if
  put it into searchString
  sniffOut
end SicEmFido


on sniffOut
  global ContinueOrNot, searchString
  find whole searchString
  if the result is empty then
    answer "Do you want to search for further occurences?" with "Yes" or "No" or "Another"
    if it is "Yes" then
      sniffOut
    end if
    if it is "No" then
      answer "The search is complete."
      put NoGo into ContinueOrNot
      sicEmFido
    end if
    if it is "Another" then
      sicEmFido
    end if
  end if
  if the result is not empty then
    answer "I did not find your selection."
  end if
end sniffOut